00100	NIL  
00200	 
00300	(LAP ALT SUBR)  
00400		(PUSH P 1)  
00500		(JUMPE 1 G0222)  
00600		(HRRZ@ 2 1)  
00700		(JUMPN 2 G0221)  
00800	G0222 	(MOVE 1 0 P)  
00900		(JRST 0 G0220)  
01000	G0221 	(HLRZ@ 1 0 P)  
01100		(PUSH P 1)  
01200		(HRRZ@ 1 -1 P)  
01300		(HRRZ@ 1 1)  
01400		(CALL 1 (E ALT))  
01500		(POP P 2)  
01600		(CALL 2 (E XCONS))  
01700	G0224  
01800	G0220 	(SUB P (C 0 0 1 1))  
01900		(POPJ P)  
02000		NIL  
02100	 
02200	NIL  
02300